split_get <- function(x = c(), breaks){
  x <- unique(x)
  xpool <- x[grepl(x = x, pattern = breaks) == F]
  for(i in grep(x = x, pattern = breaks)){
    xpool <- c(xpool, strsplit(x = x[i], split = breaks)[[1]])
  }
  return(unique(xpool))
}

# split_get(x = c("a", "a,b,e", "a,c", "d"), breaks = ",")

split_unique <- function(x = c(), breaks = c()){
  outpool <- x
  for(i in breaks){
    outpool <- split_get(x = outpool, breaks = i)
  }
  return(unique(outpool))
}

#### TEST AREA ####

# split_unique(
#   x = c("a", "a,b", "c:d", "e", "a-c", "e:g,a-b,f,a", "i/j"),
#   breaks = c(",", ":", "-", "/")
# )